DDDDDDDDDDDD ccccccecccccce «LLL 
DODDDDDDDDDD cccccccccccc LLL 
cecccccccccce «LLL 


DODDDDDDDDDD 
DOD DDD ccc LLL 
DOD DDD ccc LLL 
DDD DDD CCC LLL 
DDD DdbD CCC LLL 
DOD DdDD CCC LLL 
DOD DDD ccc LLL 
DDD DDD ccc LLL 
DDD DdDD ccc LLL 
DDD DDD CCC LLL 
DOD DbD CCC LLL 
DOD DOD ccc LLL 
D DDD CCC LLL 
DOD DDD ccc LLL 
DOD DOD CCC LLL 
DOD bbdD CCC LLL 
DDDODDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DODDDDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DDDDDDDDDDDD CCCCCCCCCCCC LLLLLELLELLLLLLLL 
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cccccccc HH HH AAAAAA RRRRRRRR alal MM AARAAA NN NN III] PPPPPPPP 
CCCCCCCC =H HH AAAAAA RRRRRRRR MM MM AAAAAA NN NN III! PPPPPPPP 

cc HH HH AA AA RR RR MMMM MMMM AA AA NN NN I] PP PP 

cc HH HH AA AA RR RR MMMM MMMM AA AA WN NN I] PP PP 

cc HH HH AA AA RR RR MM MM MM AA AA NNNN NN I] PP PP 

cc HH HH AA AA RR RR MM MM MM AA AA NNNN NN I] PP PP 

cc HHHHHHHHHH = AA AA RRRRRRRR MM MM AA AA WN NN NN I] PPPPPPPP 

cc HHHHHHHHHH = AA AA RRRRRRRR MM MM AA AA NN NN_ NN I] PPPPPPPP 

cc HH HH AAAAAAAAAA RR RR MM MM AAAAAAAAAA NN NNNN I] PP 

cc HH HH AAAAAAAAAA RR RR MM MM AAAAAAAAAA NN NNNN Il PP 

cc HH HH AA AA RR RR MM MM AA NN NN I] PP 

cc HH HH AA AA RR RR MM MM AA AA NN NN Il PP 
CCCCCCCC HH HH AA AA RR RR MM MM AA AA NN NN III] PP 
CCCCCCCC =H HH AA AA RR RR MM MM AA AA NN NN HII! PP 

LL III SSSSSSSS 

LL HII SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL III! SSSSSSSS 

LLLLLLLLLL HII! SSSSSSSS 
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CHARMANIP = CHARACTER MANIPULATION ROUTINES 15-SEP-1984 :37: AX/VMS M Leo 
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TITLE CHARMANIP = CHARACTER MANIPULATION ROUTINES 
IDENT ‘Vv04-000' 


| Son REAEREEENENENONRtENNOENONNODeNOOReENNOsENEsseCResebenreneeeseneneeseenet 


COPYRIGHT (e) 1978, 1980, 1982, 1984 BY 
TAL UIPRE PRENT eGORPORATION, MAYNARD, MASSACHUSETTS. 


THIS fe icrie fs een anee UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE Ms get hol NOTICE. THIS SOFT WARE OR ANY OTHER 

COPIES THEREOF me NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Paacisecnecon” O TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORAT Oe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


OOoooooco 
Ooo 


SOOoOooooooooooooooSo 


SOOQooooooooocoooo 
dd ad dd od 


NAN WN @§ OS ODONA UE WIN $9 OOO NAME WIN (OOD NAUS WN $$ QO WOONAULS WN OWONOUS wn — 
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PARAAALAAAELALALALA ELA LTA LESSEE SEE ESE ESE EEE EERE EEE ESET ESTE TT TT TT TPP Peer Te 


SOoooooooooo 


Sooooooo: 


ores supply a prompt string to the user Seoul 
t. 


v03-002 PCG0002 Peter George 19-Jul-1982 
Support CLISDCL_PARSE continuation routines. 


44 CHARACTER MANIPULATION ROUTINES 
0000 D. N. CUTLER 28-MAR-77 
0000 
+444 MODIFIED BY: 
44 v03-008 Pceonos Peter George 15-Jul-1983 
00 Check for maximum token s 
000 Modi fy upcase algorithm to “alley multinational chars. 
4 Move “'+’’ back to insignificant blank separators. 
00 v03-007 Nog 4 Peter George 15-Jun-1983 
3 : e ‘t-("" significant blank separators. 
000 4 v03-006 PCG0006 Peter George la 
00 ? Change WRK_L_PARMCNT to WRK_B_PARMCN 
4 v03-005 pceones Peter George 24-F eb-1983 
4 Set PTR_B_NUMBER, PTR_B_PA MCNT, my BTR tL ENTITY 
4 «ol ‘aietion a PTR block. 
4 v03-004 PCG0004 Peter George 28-0c t-1982 
Remove ASCIC user prompt. Read escape sequences. 
v03-003 pceoees Peter George 15-0ct-198 
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Add valu level 8 yeeort to DCLSGENDESCR. 
Set continuation or reprompt 1/0. 


v03-001 sy Peter George 09-Jun-1982 
5 berfors indirection when looking ahead with 
DeLSteS BLANK. 


re 


0000 


00 2D 

20 3A 2F 2B 2C 29 

00 23 5E 3D 3F 3E 5D 29 2B 2C 2F 

21 20 38 2E 3C 5B 28 27 2D 2A 40 es 


Soooooo 


Oooooooooooo 


NM —“DOOCCGCGQDOOOOCOOOooOOoOooooo 
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K 
CHARMANIP = CHARACTER 
¥04-000 C CTER MANIPULATION ROUTINES 


: LOCAL DATA 


-PSECT 
DCLSHYPHEN: : 
TERMCLASS: 
ASCII 
TERMTAB: 
SCII 


BLANKTAB: 
ASCII 


ENDTERM: 


9090909090909 0908 SII NINO 


CO BNOUEWN—“OOONOUS W000 
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oF MACRO LIBRARY CALLS 


DCLS$ZCODE ,BYTE,RD ,NOWRT 


/-/<0> 
\),¢/: \ 


r) 
nw 
mm 
vv 


\/,+)]>2=*A\<0> 


\:at-'(C<.; 


\ 
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RROR/STATUS VALUES 


;HYPHEN STRING 
Z1TEM TERMINATOR STRING 

; TERMINATOR TABLE 
;SIGNIFICANT BLANK SEPARATOR 


sREF LABEL 


AREA 
ESULT PARSE DESCRIPTOR FORMAT 


CHARMANIP 
v04-000 


L 2 
IPULATION ROUTINES i as bs 93:30:22 yeas Macro V04-00 Page 
NG BY INDEX NUMBER G=SEP=1984 25:59:1 DCL.SRCIJCHARMANIP.MAR; 1 


~SBTTL LOCATE STRING BY INDEX NUMBER 
:DeLSLOcATE - LOCATE STRING BY INDEX NUMBER 


; : THIS ROUTINE IS CALLED TO LOCATE A STRING IN A CHARACTER ARRAY BY COUNTING 
; THE OCCURANCES OF CHARACTERS WITH BIT 7 SET. 


INPUTS: 
Rez A DRESS OF CHARACTER ARRAY. 
; RS = STRING INDEX NUMER” 


; ; OUTPUTS: 


R1 = LENGTH OF STRING. 
R2 = ADDRESS OF STRING. 


em ad 
SOGOOCOOSCOOOOOOOOOOSoOOoOOoOooo mm = 


SOCOCGCOOOOOOOOCOOOOOOOOOoO 


mat 8 i td 


DCLSLOCATE:: ;LOCATE STRING BY INDEX NUMBER 
D4 CLRL sR i CLEAR INITIAL LENGTH 
CO 10$ DDL R1,R2 ;POINT TO NEXT ENTRY IN TABLE 
9A MOVZBL (R2)+,R1 COUNT 
F SOBGEG R3,10$ SANY MORE STRINGS TO SKIP OVER? 


n 2 | 
CHARMANIP = CHARACTER MANIPULATION ROUTINES 15-SEP-1984 23:37:55 VAX/VMS Macro V04-00 Page 5 | 
v04=000 GENERATE RESULT PARSE DESCRIPTOR 4-5 sats yi 33:35:38 YOCL SRCICHARMANIP-MAR; 1 ef wl. 
¢ 116 : .SBTTL GENERATE RESULT PARSE DESCRIPTOR | 
¢ 119 $ DCLSGENDESCR = GENERATE RESULT PARSE DESCRIPTOR 
; Q THIS ROUTINE IS CALLED TO GENERATE A LONGWORD DESCRIPTOR FOR A RESULT PARSE | 
€ 102: 
: | § : INPUTS: | 
€ 125: R4 = ITEM NUMBER. 
. ¥ $ : RS = ITEM TYPE. 
O02 107: Rg = ITEM FLAGS. 
Ooc 1 8 : R7 = ITEM VALUE. 
O020C 129: RB = STARTING ADDRESS OF ITEM. 
O2c 130: R9 = ITEM ENTITY BLOCK ADDRESS. 
O2c 131: WRK_L_EXPANDPTR = ADDRESS OF TERMINATOR CHARACTER IN EXPANSION BUFFER. 
O2c 1 : ; WRK-B-VALLEV = VALUE DEPTH OF DESCRIBED ITEM. 
Py 9. = ° 
2. c ; WRK"B"PARMCNT = NUMBER OF LAST PARAMETER PARSED 
0 c 5 : OUTPUTS: 
80 . 28 $ : THE SPECIFIED FIELDS ARE PACKED TOGE HER TO FORM A RESULT PARSE 
O2¢ 138: DESCRIPTOR LONGWORD AND THE RESULTA VALUE IS STORED IN THE RESULT 
O2c 139: PARSE TABLE. 
gee 
80 C 148 DCLSGENDESCR:: :GENERATE RESULT PARSE DESCRIPTOR 
51 BA AA 00 00 : MOVL  WRK_L_RSLNXT(R10) ,R1 “GET ADDRESS OF NEXT FREE DESCRIPTOR 
B6 AA «(OF «(O00 6 144 PUSHAB WRK~G-RESULT+WRK_C_RSLBUFSIZ(R105 ;GET ENDING ADDRESS OF RESULT BUFF 
51 8— 01 145 CMPL  (SPY4#7R1 ;ROOM FOR ANOTHER DESCRIPTOR? 
OA 1A : 146 BGTRU 208 [BRANCH IF OK 
14 STATUS RSLOVF 'SET ERROR STATUS 
020331 F 148 108 BRW ERROR ; 
42 149 20$ STATUS TKNOVF SSET ERROR STATUS 
57 OO0000FF 8F D1 0049 150 CMPL  #255,R7 SCHECK SIZE OF TOKEN 
ED 1F 30 151 BLSSU 108 ‘BRANCH IF TOO LARGE 
08 00 3? FO 3 138 INSV R? #PTR V VALUE. APTR_S_VALUE ,~ SINSERT VALUE FIELD 
F492 CA OF 3 154 PUSHAB WRK"G"B FFERCRIO) [GET ADDRESS OF EXPANSION BUFFER 
50 (58 ; C3 0058 155 SUBL3 (SPJ RB,R [CALCULATE OFFSET TO ITEM 
08 FO O05F 136 INSV #PfR_V_OFFSET,- S INSERT OFFSET TO ITEM 
61 Oc 62. 15 PfR_S OFFSET.PTR_L_DESCR(R1) : 
04 14 6 FO 64 13 INSV RG PTR V FLAGS APTR_S_ 'AGS,~ :INSERT ITEM FLAGS 
04 1¢ s FO $3 16 INSV Rb PTR Y,TVPE «APTR_S_TVPE,~ SINSERT ITEM TYPE | 
05 Al g 90 6 16¢ VB R4,PTR_B_NUMBER(R1) SINSERT ITEM NUMBER 
08 al 59 00 16 MOVL R9.PTRTL“E TITY(RI) SINSERT ENTITY BLOCK ADDRESS 
ce AA 76 164 MOVE WRK_B_PARMCNT(R10),- SINSERT LAST PARAMETER NUMBER 
Al 79 (165 PTR-B-PARMCNT (R1) ; 
D0 ” ; 
c AA 90 0078 166 MOVB WRK"B”VALLEV(R10) INSERT VALUE DEPTH 
Al i 16 PTR~B-LEVEL(R1) ; 
BAAA OC C 183 ADDL #PTR_C_LENGTH,WRK_L_RSLNXT(R10) ;POINT TO NEXT ITEM IN BUFFER 
BAAA D0 4 1 4 MOVL WRK C_RSLNXT(RIQ) <= ;REMEMBER LAST TOKEN 
6 AA —s . WRK“LRSLEND(R10) : 
50 F486 DA 9A 9 172 MOVZBL a@WRR_C_EXPANDPTR(R10) .RO [GET TERMINATOR CHARACTER 


N 2 
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v04=000 SET TERMINATOR CLASS IN LAST DESCRIPTOR 2786-1382 Ae EE YOCL SRCICHARMANIP.MAR: 1 _ (8) 
: 124 fo .SBTTL SET TERMINATOR CLASS IN LAST DESCRIPTOR 
E 17 ; DCLSGENTERM = SET TERMINATOR CLASS IN PREVIOUS TOKEN DESCRIPTOR 
— 178 : THIS ROUTINE IS CALLED TO SET THE TERMINATOR CLASS IN THE TOKEN 
: 129 ; DESCRIPTOR MOST RECENTLY STORED VIA DCLSGENDESCR. 
: 1 : INPUTS: 
é $ ; RO = TERMINATOR CHARACTER 
: : OUTPUTS: 
— 187: NONE 
abeE 139 * 
O8E 190 DCLSGENTERM:: 
3 50 «91 OOB8E 191 CMPB) s«RO, #*A'=" SEQUAL TERMINATOR? 
11.13 0 1 19¢ BEQL 208 tIF YES, SET CLASS=COLON 
28 50 91 0093 19 CMPB RO wear(’ SLEFT PARENTHESIS? 
11. «13 09% 194 BEQL = 308 “IF YES, SET CLASS 
FF64 CF 06 50 3A 0098 195 LOCC RO, #TERMTAB-TERMCLASS, TERMCLASS ;SEARCH FOR TERMINATOR IN TABLE 
x & 43 196 BNEQ 508 y1F FOUND = USE INDEX # AS CLASS 
00A0 «(19 ASSUME PTR_K_BLANK EQ 1 
30 06 OOAQ 198 INCL RO. ;SET TERMINATOR CLASS TO BLANK 
50 02 9A DOA, 00 20S: MOVZBL #PTR_K_COLON,RO ;SET TERMINATOR CLASS TO COLON 
50 07 9A 00A9 0¢ 0$: MOVZBL #PTR_K_LPAREN RO ;SET TERMINATOR CLASS TO LPAREN 
51 BA AA 00 OAC 203 50$:  MOVL  wWRK_C _RSLNXT(R10),R1 “GET ADDRESS OF NEXT FREE DESCRIPTOR 
06 18 50 FO 00BO 204 INSV RO, #PTR_V_TERM,APTR_S_TERM,- ; INSERT TERMINATOR CLASS NUMBER 
F4 Al - 0084 205 a -PfR_C_CENGTH(R1) ;IN LAST TOKEN, DESCRIPTOR STORED 
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V04-000 COMPRESS QUOTED STRING IN EXPANSION BUFF 4=SEP-1 9:15 Yoel SRCJCHARMANIP.MAR; 1 

87 .SBTTL COMPRESS QUOTED STRING IN EXPANSION BUFFER 

Bf ; DCLSCOMPRESS = COMPRESS QUOTED STRING IN EXPANSION BUFFER 

B7 1 : THIS ROUTINE IS CALLED TO COMPRESS A QUOTED STRING WHICH IS 

087 13 : THE LAST TOKEN IN THE EXPANSION BUFFER. THE QUOTES ARE REMOVED 

B7 214 : FROM THE STRING AND THE EXPANSION BUFFER POINTER IS RESET TO THE 
0087 13 ; NEW END OF THE STRING. 

087 3 : INPUTS: 

087 : ; R1 = LENGTH OF STRING. 

087 0 ; R2 = ADDRESS OF STRING. 

9087 j 3 OUTPUTS: 

0087 4: R1 = LENGTH OF COMPRESSED STRING. 

087 5: R2 = ADDRESS OF COMPRESSED STRING. 
G07 ; ; WRK_L_EXPANDPTR POINTS TO THE END OF THE COMPRESSED STRING. 
0087 9; R3,R4 DESTROYED. 
bony 58 
0087 3¢ DCLSCOMPRESS: : 

07 10 00B7 23 BSBB_ - DCLSCOMPSTRING COMPRESS STRING IN PLACE 
F486 CA «52~—=COS'1 ci 0089 234 ADDL3 R1,R2,WRK_L_ EXPANDPTR(R10) :RESET POINTER JUST PAST NEW STRING 
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DCL.SRCJCHARMANIP.MAR; 1 


* ~SBTTL COMPRESS QUOTED STRING IN-PLACE 
; DCLSCOMPSTRING = COMPRESS QUOTED STRING IN PLACE 
; THIS ROUTINE IS CALLED TO COMPRESS A QUOTED STRING. 


INPUTS: 


LS ad 
>r 
om 
o 
FJ 
m— 
nx 
nm 


; OUTPUTS: 
: R3,R4 DESTROYED. 


DCLSCOMPSTRING: : 
MO R 


VL WR3 
MOVL = RB, Ra 
CLRL «RO 
10$: (MPR #*A/""/,(R3) 
BNEQ 208 
INCL = R 
BBCS + —-#0, RO, 308 
DECL = RI 
BLEQ 


40$ 
CMPB #*A/"'/, (R3) 
208 


BEQL 
BICL #1,R0 

20s: MOVE (R3)+,(R4)+ 

0$:  SOBGTR R1,10$ 

40$:  SUBL3 R2,R4,R1 


THE SPECIFIED STRING IS COMPRESSED REMOVING PAIRED QUOTES. 


Ri = LENGTH OF COMPRESSED STRING. 
R2 = ADDRESS OF COMPRESSED STRING. 


COMPRESS QUOTED STRING 
s;COPY BASE ADDRESS OF STRING 
;COPY BASE Ate OF STRING 
:CLEAR QUOTATION FLAG 

NEXT NO A QUOTE? 


AST_ QUOTE 
sIF CLR, JUST ENTERING QUOTE 
:DECREMENT NUMBER OF CHARACTERS REMAINING 


31 NONE 
[NEXT CHARACTER ALSO A QUOTE? 
i1F YES 


es] 
m—r 
o m 
roo 


EAR QUOTE IN PROGRESS 
4 ge AND ef 


O SCAN 
CALCULATE LENGTH OF COMPRESSED STRING 
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¥04=000 MARK ROSE iON IN EXPANSION BUFFER raat $3:35: 33 DCL RCI RMANIP.MAR: 1 ° by 
EA 2 ’ .SBTTL MARK POSITION IN EXPANSION BUFFER | 
EA 78 $ DCLSMARK = MARK CURRENT POSITION IN EXPANSION BUFFER | 
EA 0: MARK THE CURRENT POSITION OF THE SEGMENT BEING PARSED | 
EA 13 SO THAT IF ANY ERROR OCCURS LATER, THE SEGMENT CAN BE 
EA ; ; SHUN’ IN THE ERR R MES SSAGE. THE MARKED POSITION IS 
EA $ ALSO USED TO OBT Rt THE LENGTH AND ADDRESS OF THE STRING | 
GEA 4 : MOVED INTO THE EXPANSION BUFFER SINCE THE LAST MARK. | 
GEA 386 ; INPUTS: | 
OFA 8 ; WRK_L_EXPANDPTR = CURRENT POINTER INTO EXPANSION BUFFER 
QOEA 30 : OUTPUTS: 
aE 3 : WRK_L_MARKPTR = POSITION OF SEGMENT NOW BEING PARSED 
OEA 294 OCLSMARK:: 
F48A CA F486 CA v0 QOEA 295 ROVE WRK_L_EXPANDPTR(R10) ,WRK_L_MARKPTR(R10) ;COPY CURRENT EXPANSION BUFF 
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v04-000 GET DESCRIPTOR OF EXPANSION STRING 273E = 1382 33:35:28 LOCL SRCICHARMANIP-MAR; 1 - (9) | 
F 98 i «SBTTL GET DESCRIPTOR OF EXPANSION STRING | | 
f 0 ; DCLSMARKEDTOKEN = GET DESCRIPTOR OF MARKED EXPANSION STRING | 
F : $ THIS ROUTINE IS CALLED TO OBTAIN THE LENGTH AND ADDRESS OF THE 
F ; STRING COMPOSED OF ALL CHARACTERS WRITTEN INTO THE EXPANSION BUFFER 
OF 4 ; SINCE THE LAST CALL TO DCLSMARK. | 
OF : ; INPUTS: | 
if 8 ; R10 = ADDRESS OF COMMAND WORK AREA | 
OF 10 : OUTPUTS: 
OOF 1g : R1 = LENGTH OF STRING 
OOF 13; Re = AD DRESS OF STRING 
OFS 818 ie sigan 
bor 16 Pinte 
52. F4BA CA DO OOF 1 L__ WRK_L_MARKPTR(R10).R2_ ;GET ADDRESS OF STRING 
51 F486 CA 52 C3 OOF? 18 SUBL3 R2, ORR _L_EXPANDPTR(R 40, R1 ;COMPUTE LENGTH OF STRING 
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DCL.SRCJCHARMANIP.MAR; 1 
~SBTTL GET NEXT NONBLANK CHARACTER | 

DCLSGETNBLK = GET NEXT NONBLANK CHARACTER FROM INPUT BUFFER 

THIS ROUTINE 1S CALLED TO OBTAIN THE NEXT NONBLANK CHARACTER FROM THE INPUT 


INPUTS: 
NONE. 


; OUTPUTS: 


CHARACTERS ARE OBTAINED FROM THE INPUT BUFFER UNT!L A NONBLANK 
CHARACTER IS ENCOUNTERED. 


RO = NONBLANK CHARACTER. 


pcan + GET NEXT NONBLANK CHARACTER 


DCLSSETNBLK :POINT TO NEXT NONBLANK CHARACTER 
BRW DCLSGETCHAR RETURN NEXT CHARACTER TO CALLER 


11 
(10) 


3 
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v04=000 MOVE CHARAC ACTER TOvEXPANS 1M BUFFER AND G 4=5 eats $3:35 532 POEL SRCICHARMANIP. MAR; 1 ° 

104 4 .SBTTL MOVE CHARACTER TO EXPANSION BUFFER AND GET BLANK TOKEN 

4 46  DCLSMOVBTOKN = MOVE CHARACTER TO EXPANSION BUFFER AND GET BLANK TOKEN 

104 48 : THIS ROUTINE IS CALLED TO PERFORM THE COMBINED OPERATION OF MOVING THE NEXT 

104 49 : CHARACTER TO THE EXPANSION BUFFER AND THEN OBTAINING THE NEXT BLANK TOKEN, 

4 : : INPUTS: 

4 38 ; NONE. 

18 23 : OUTPUTS: 

104 3§ : THE NEXT CHARACTER IS MOVED TO THE EXPANSION BUFFER AND THEN THE NEXT 

106 358; BLANK TOKEN IS OBTAINED. 

106 300° 

0104 61 DCLSMOVBTOKN: : ;MOVE CHARACTER AND GET TOKEN 
O0E8 30 104 6¢ BSBW DCLSMOVCHAR sMOVE CHARACTER TO EXPANSION BUFFER 
05 11 0107 36 BRB DCLSGTBTOKEN [GET NEXT BLANK TOKEN 


1 


| 
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v04-000 MOVE CHAR 
1 
1 

199 

109 

109 

109 

109 

109 

109 

109 

109 

109 

109 

109 

109 

109 

00E3 30 0109 


om 


E 
A 


ov 


H 
ULATION ROUTINES 15-SEP-1984 23:37:5 AX/VMS Macro V04-00 
XPANSION BUFFER AND G 2=86b=| 982 3:39:18 LOC LSRCICHARMANIP.MAR; 1 


‘ «SBTTL MOVE CHARACTER TO EXPANSION BUFFER AND GET TOKEN 
DCLSMOVTOKN = MOVE CHARACTER TO EXPANSION BUFFER AND GET TOKEN 


; THIS ROUTINE IS CALLED TO PERFORM THE COMBINED OPERATION OF MOVING THE NEXT 


CHARACTER TO THE EXPANSION BUFFER AND THEN OBTAINING THE NEXT TOKEN. 
INPUTS: 


NONE. 
OUTPUTS: 
THE NEXT CHARACTER IS MOVED TO THE EXPANSION BUFFER AND THEN THE NEXT 
TOKEN IS OBTAINED. 
CLSMOVTOKN:: sMOVE CHARACTER AND GET TOKEN 
BSBW DCLSMOVCHAR sMOVE CHARACTER TO EXPANSION BUFFER 


Page 13 
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«SBTTL GETOKEN = GET NEXT TOKEN 


| 
+ ' 
DCLSGETOKEN = GET TOKEN FROM INPUT BUFFER WITH INSIGNIFICANT LEADING BLANKS | 
DCLSGTBTOKEN = GET TOKEN FROM INPUT BUFFER WITH SIGNIFICANT LEADING BLANKS | 
THIS ROUTINE IS CALLED TO SCAN THE jul BUFFER UNTIL A DELIMITER IS FOUND. 
WHILE THE BUFFER IS BEING SCANNED, THE RESULTANT TOKEN IS COPIED INTO THE 
EXPANSION BUFFER. WHEN A TERMINATOR IS RECOGNIZED, THE DESCRIPTOR FOR THE 
TOKEN IS RETURNED TO THE CALLER ALONG WITH THE TERMINATOR. 

INPUTS 

NONE. 


= LENGTH OF OUTPUT TOKEN. 
Re = ADDRESS OF OUTPUT TOKEN. 


Z = 1 IF NO TOKEN IS BEING RETURNED. 
Z = 0 IF A TOKEN IS BEING RETURNED. 
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DCLSGETOKEN: : 


WRK L co es R2 ; 
10$: BSBW DCL Lon ove 


oRK G VeQUOTE= Oe 


GET TOKEN FROM INPUT BUFFER 


75 «10 DCLSSE TNBLK sPOINT TO NEXT wooo ee 
DCLSGTBTOKEN:: ;GET TOKEN FROM INPUT BUFFER 
52 F486 CA SA (C3 SUBL3 R10 ;FIND OFFSET OF FIRST BYTE IN TOKEN 


;MOVE CHARACTER TO EXPANSION BUFFER 
:IF SET, QUOTE IN PROGRESS 


SIF SET, ASTERISK IS TERMINATOR 
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0 
BBS W AR, = 
OF FO AA 0 WRK Q FLAGS{R10) .208 3 
50 2A 91 CMPB#*AT#? LR SASTERISK? 
' 6 BEQL 108 [IF EQL YES 
— €1 BBC #WRK_V TIF SET, NULL IS TERMINATOR 
05 FO AA WRK on gurtRescnton, 208 _—S tl: 
50 00 91 CMPB ? 
Es 12 BNEQ :NO, THEN LOOP 
Z. 30 3A 208: LOCC RO, #ENDTERN-TERMTAB ,~ ‘SEARCH FOR TERMINATOR 
DCO o«13 BEQL 108 [IF EQL TERMINATOR NOT FOUND 
4000 BF AA BICW #WRK_M_ESCAPE ;CLEAR ESCAPE FLAG 
FO AA WRK_@_FLAGS(R10) 
F486 CA 07 DECL WR st Lag XPANDPTR(R10) BACK UP TO TERMINATOR 
50 61 9A MOVZBL RETRIEVE TERMINATOR 
50 20 91 CMPB ay “7 RO tWAS TERMINATOR A BLANK? 
1 I BNEQ [IF NEQ NO 
51 F4Be CA 2 MOVL ct. CHARPTR(R10),R1  :GET CURRENT CHARACTER POINTER 
FEB2 CF OB Al 3A LOCC i S#BLANKTAB-TERMTAB, TERMTAB ;SEARCH FOR TERMINA 
12 BNEQ s1F NEQ INSIGNIFICANT BL 
50 9A MOVZBL ma , [RESET BLANK TERMINATOR 
00 30$:  BSBW OC SeACtUPCHAR TRESTORE TERMINATOR TO INPUT 
52 SA C ADDL OR “FIND ADDRESS OF FIRST BYTE IN TOKEN 
51 F486 CA 3 ¢ SUBL3 Re WRK_L_EXPANDPTR(R10),R1 ;CALCULATE LENGTH OF ITEM 
1 BEQL § "IF EQL NO TOKEN 


| 
OUTPUTS: 
RO = TERMINATOR CHARACTER. 
| 
| 
| 
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GETOKEN = GET NEXT TOKEN 46-SEP-1984 L.SRCJCHARMANIP.MAR; 1 (13) 
26 62 91 0169 44 CMPB {R2) .#*A'e! STOKEN START WITH AMPERSAND? 
D 12 O16C 44 BNEQ SIF NEQ NO 

F9B2 cA d5 01 444 WRK_L_SPECRTN(R10) SANY SPECIAL pPROCESSING ROUTINE? 

13 01 445 BEQL 0$ SIF NOT, SKIP IT 
50 62 9A 017 446 MOVZBL (R2),RO [PICK UP CHARACTER 
F9B2 DA «16 «0177 «(44 JSB @WRK’L_SPECRTN(R10) SCALL SPECIAL PROCESSING ROUTINE 

178 448 SAND RETURN WITH SUBSTITUTED VALUE 
0S 0178 449 50$: RSB 
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CHARMANIP = CHARACTER MANIPULATION ROUTINES 15-SEP-1984 23:37:55 VAX/VMS Macro V04-00 Page 16 

v04-000 FORCE NONBLANK CHARACTER arSEE= 138s 83:35;72 LOCLYSRCTCHARMANIP.MAR: 1 ’ (14) | 
7 4 : ~SBTTL FORCE NONBLANK CHARACTER | 
17¢ 433 ; DCLSFORNBLK = FORCE NONBLANK CHARACTER | 
We 455 ! THIS ROUTINE IS CALLED TO FORCE AN INPUT AND THEN SET THE CHARACTER POINTER | 
| ¢ 496 ; TO THE NEXT NONBLANK CHARACTER. | 
17¢ 4 } INPUTS | 
17C «459: 
17 460 ; NONE. 
17C «= 461 gx 
12C 466 ; OUTPUTS: | 
17 464; THE NEXT CHARACTER POINTER 1S SET 10 POINT TO & STRING CONTAINING 
17 465: A HYPHEN FOLLOWED BY AN END OF LINE. A SET NONBLANK OPERATION IS | 
126 466 THEN PERFORMED. 
17 467 3 
WC 468 
17C r+ DCLSFORNBLK: : 43 NONBLANK CHARACTER 

F48E CA FE7F CF «96 O17C 470 MOVAB DCLSHYPHEN=1,WRK_L_ CHARPERCRIO) sSET 10 FORCE INPUT ON NEXT GET 
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POINT TO NEXT NONBLANK CHARACTER 4-SEP-1984 23:39:15 [DCL.SRCJCHARMANIP.MAR; 1 (15) 
472 : ~SBTTL POINT TO NEXT NONBLANK CHARACTER 
ae > DCLSSETNBLK = POINT TO NEXT NONBLANK CHARACTER IN INPUT BUFFER 
1 476 : THIS ROUTINE IS CALLED TO SET THE INPUT BUFFER POINTER TO THE NEXT NONBLANK 
1 $f : CHARACTER. 
o78 : INPUTS: 
4 1: NONE. 
4 $ : OUTPUTS: 
1 485 : CHARACTERS ARE OBTAINED FROM THE INPUT BUFFER UNTIL A NONBLANK CHAR- 
01 486 : ACTER IS ENCOUNTERED AND THE INPUT BUFFER POINTER IS RETURNED TO ITS 
4 ; POSITION BEFORE THE LAST GET CHARACTER OPERATION. 
1 tbs : RO = NONBLANK CHARACTER. 
ag 
61 49¢ .ENABL LSB 
1 493 DCLSSETNBLK: : sPOINT TO NEXT NONBLANK CHARACTER 
FO AA 01 04 ef 1 494 XTZV  #WRK_V_QUOTE,#1,WRK_W_FLAGS(R10),-(SP) ; SAVE QUOTATION FLAG 
008F 9 189 495 10$: BSBW  DCLSGETCHAR :GET NEXT CHARACTER FROM INPUT BUFFER 
“4 O18¢ 496 EQL SIF EQL END OF LINE 
20 50 91 O18€ 497 CMPB SsaRO,#*A" 'BLANK? 
F613 191 498 BEQL =_«10$ [IF EQL YES 
OA 11 0193 499 BRB 30$ ‘BACKUP BEFORE CHARACTER AND EXIT 
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CHARMANIP = CHARACTER MANIPULATION ROUTINES 15-SEP-1984 23:37:55 VAX/VMS Macro V04-00 Page 
04-000 PEEK AT NEXT CHARACTER at eC TAR TTT TORE ° 
19 2 .SBTTL PEEK AT NEXT CHARACTER 
19 § $ DCLSSETCHAR = PEEK AT NEXT CHARACTER IN INPUT BUFFER 
19 5 : THIS ROUTINE IS CALLED TO OBTAIN THE NEXT CHARACTER IN THE INPUT BUFFER 
+ § : WITHOUT MOVING THE BUFFER POINTER. 
19 2 : INPUTS: 
19 10 : NONE. 
183 5 : OUTPUTS: 
19 14: THE NEXT CHARACTER IS OBTAINED FROM THE INPUT BUFFER AND THE CHARACTER 
195 19 : POINTER IS RETURNED TO ITS POSITION BEFORE THE GET CHARACTER OPERATION. 
198 i x RO = NEXT CHARACTER IN INPUT BUFFER. 
195 519° 
195 0 DCLSSETCHAR:: sPEEK AT NEXT CHARACTER 
7E FOAA 01 04 EF 0195 521 EXTZV #WRK_V_QUOTE,#1,WRK_W_FLAGS(R10),-(SP) ; SAVE QUOTATION FLAG 
7E 19 198 3 CLSGETCHAR :GET NEXT CHARACTER FROM INPUT BUFFER 
08 13 019D BEQL 0$ SIF EQL END OF LINE 
F4BE CA D7 O19F 4 30$: DECL  WRK_L_CHARPTR(R10) *BACK UP INPUT BUFFER POINTER 
FOAA 01 04 BE FO O1AS 525 40S: INSV (SP3+7#WRK_V_QUOTE,#1,WRK_W_FLAGS(R10);RESTORE QUOTATION FLAG 
BE DS OIA ; 50S: TSTL (SP)+ SIGNORE SAVED QUOTATION FLAG ON EOL 
O1AD = 529 .DSABL LSB 
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BYPASS INSIGNIFICAN 4-SEP-1 DCL.SRCJCHARMANIP.MAR; 1 (17) 

ap : - «SBTTL BYPASS INSIGNIFICANT BLANKS 
JAD ; 3 DCLSTESTBLANK = BYPASS INSIGNIFICANT BLANKS IN INPUT BUFFER 
1AD 5 THIS ROUTINE IS CALLED TO TEST IF THE NEXT CHARACTER IN THE INPUT BUFFER IS 
Ad g: ; A SIGNIFICANT BLANK, AND IF IT IS NOT SIGNIFICANT, THROW IT AWAY. 
1AD g ? INPUTS: 
1AD : 
1~ 29 3 NONE. 
Ap 4g i : ouTputs: 
1AD 544: RO = NEXT CHARACTER IN INPUT BUFFER 
inp Bag 
1AD 23 DCLSTESTBLANK: : :TEST FOR SIGNIFICANT BLA 

40 10 O1AD 48 BSBB DCLSMOVCHAR *PEEK AT NEXT CHARACTER In, INPUT BUFFER 

50 20 91 O1AF 54 CMPB “A/ /,R ‘BLANK? 
8 12 01B2 550 BNEQ DCL SBACKUPMOVE SIF NEQ NO 
D €1 01B4 3] BBC #uRK V_USRMO :IF SET THEN USER MODE PARSE 
04 FO AA 186 : K_Q FLAGS (RIOD 10$ Ss: 
DA 10 018 5 S88 Css ETC :PEEK AT NEXT CHARACTER IN INPUT BUFFER 
OA 11 O1eB 554 RB *SKIP SUPERVISOR MODE PEEK AHEAD 
OiaD 555 108 SETBIT PRC_V_IND,PRC_W_FLAGS(R11) DISABLE INDIRECT DURING LOOK AHEAD 
D2 10 01C1 28 BSBB DCLSSETCHA PEEK NEXT CHARACTER IN INPUT BUFFER 
dics 5 CLRBIT PRC OV IND, PRC_W_FLAGS(R11) RESENAB LE INDIRECT 
FE3B CF «=OB:sCi‘SO:s«éiKA':—«Cé*OMTL 58 20S: LOCC O98 CAN Kt AB-TERMTAB, TERMTAB ; RCH FOR TERMINATOR 
0D 13 O1¢D 559 BEQL bet seacKy PMOVE BR it SL ARK 1S SIGNIFICAN 
50 F486 CA DO OICF 560 MOVE = «WRK OL XPANDPTR(RIO), RO ;GET POINTER INTO CNPANSION BUFFER 
FF AO 61 90 0104 561 MOVE = (R11 UT REAL TERMINATOR OVER BLAN 
F48E CA 06 0108 562 INCL WRK_C_CHARPTR(R10) SADJUST POINTER FOR THE BLANK 
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BACKUP CHARACTER FROM EXPANSION TO INPUT 4=SEP DCL. SRCJCHARMANIP.MAR; 1 
1p¢ i + ,$BTTL BACKUP CHARACTER FROM EXPANSION TO INPUT BUFFER 
1p $; ¥ DCLSBACKUPMOVE = BACKUP ONE CHARACTER FROM EXPANSION TO INPUT BUFFER 
1D¢ 8 : THIS ROUTINE RESTORES THE CHARACTER MOST RECENTLY WRITTEN INTO THE EXPANSION 
1D¢ $ : BUFFER BACK INTO THE INPUT BUFFER AND RESETS THE POINTERS. THIS EFFECTIVELY 
13 fy 3 TAKES BACK THE MOST RECENT ‘MOVCHAR’ 
1p¢ ig i : INPUTS: 
Ie 324 | R10 = ADDRESS OF COMMAND WORK AREA 
1p¢ 6 i : outputs: 
DC «30-4578 THE CHARACTER IS COPIED BACK INTO THE INPUT BUFFER AND THE POINTERS 
1p¢ 229 ; ARE RESET. 

oie $81 BCLSBACKUPMOVE: : 
F486 CA D7 01D¢ 28¢ DECL | WRK_L_EXPANDPTR(R10) ;BACK UP EXPANSION BUFFER POINTER 
50 F486 DA 90 O1E60 58 MOVB @WRR_C_EXPANDPTR(R10),RO ;GET CHARACTER 


oe 
| 


C 4 
CHARMANIP = CHARACTER M ANIPULATION ROUTINES 15-SEP-1984 23:37:55 VAX/VMS Macro V04-00 Pa 1 ¢ 
V04=000 BACKUP CHARACTER TO INPUT BUFFER 4-SEP-1984 33:35:22 LOLLY SRCICHARMANIP OMAR: 1 a (i) § 
IE ‘. .SBTTL BACKUP CHARACTER TO INPUT BUFFER ¢ 
IE if $ DCLSBACKUPCHAR = BACKUP ONE CHARACTER TO INPUT BUFFER : 
1€ : ¢ 
H3 go 8 : BEGINNING) AND RESETS THE INPUT POINTER. ¢ 
1€ 96 i : INPUTS: ¢ 
1E 93 : ¢ 
1E 9% : RO = CHARACTER TO BE WRITTEN C 
IE 99 : R10 = ADDRESS OF COMMAND WORK AREA ; 
IE 3 : OUTPUTS: c 
1E 99 : THE CHARACTER 1S APPENDED TO THE FRONT OF THE INPUT BUFFER C 
OIE 600 ; AND THE POINTERS ARE RESET. C 
165 601 :- C 
01€5 60¢ DCLSBACKUPCHAR: : ¢ 
F48E DA «5090 TES 60 MOVB RO,@WRK_L_CHARPTR(R10) ;WRITE CHARACTER INTO I NPUT BUFFER C 
F4BE CA 07 O1EA 604 DECL  WRK_L_ CRARPTR RIO) ‘BACK UP INPUT BUFFER POINTER C 
05 O1FE 605 RSB ¢ 
C 
C 
C 
C 
¢ 
C 
C 
C 
C 


C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 


; THIS ROUTINE WRITES A GIVEN CHARACTER BACK INTO THE INPUT BUFFER (AT THE 
| 
| 
| 
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~-SBTTL MOVE CHARACTER FROM INPUT TO EXPANSION BUFFER. 
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: DCLSMOVCHAR = MOVE CHARACTER TO EXPANSION BUFFER 


: EXPANSION BUFFER. 
: INPUTS: 
: NONE. 

; OUTPUTS: 

; THE EXPANSION BUFFER. 


RO = gt MOVED 
Z SET IF RO= 


DCLSMOVCHAR: : 
BSBB .DCLSGETCHAR 


: THIS ROUTINE IS CALLED TO MOVE A CHARACTER FROM THE INPUT BUFFER TO THE 


| 
| 
| 
sMOVE CHARACTER TO EXPANSION BUFFER 
GET NEXT CHARACTER FROM INPUT BUFFER | 


THE NEXT CHARACTER IS OBTAINED FROM THE INPUT BUFFER AND WRITTEN INTO 
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ON BUFFER 4-SEP-1 DCL.SRCJCHARMANIP.MAR; 1 
~SBTTL PUT CHARACTER IN EXPANSION BUFFER 


s+ 
; DCLSPUTCHAR = PUT CHARACTER IN EXPANSION BUFFER 
; THIS ROUTINE IS CALLED TO WRITE A CHARACTER INTO THE EXPANSION BUFFER. 


; INPUTS: 
RO = CHARACTER TO BE WRITTEN IN ia ANSION BUFFER. 
WRK_L_EXPANDPTR = ADDRESS OF NEXT BYTE IN EXPANSION BUFFER. 
: OUTPUTS: 
THE SPECIFIED CHARACTER IS WRITTEN INTO THE EXPANSION BUFFER AFTER 
HAVING CHECKED FOR BUFFER OVERFLOW. 
RO = Fey ly WRITTEN 
Z SET RO= 


DCLSPUTCHAR:: 


R 
10$: STATUS BUFOVF 
6B 


CHARACTER IN EXPANSION BUFFER 
(R10) ;END OF EXPANSION AREA 
: ROOM or ANOTHER CHARACTER? 


T 
2 
NO 
TORE gee HL IN EXPANSION BUFFER 
CREMENT EXPANSION 

TURN WITH PSL SET FOR CHARACTER 


T ERROR STATU 


“p 
PUSHAB WRK_G_BUFFER+WRK_C_CMDBUFS 
CMP (SP3+7WRK_L ENEXPANDPTR (RIOD 
BLEGU 10$ 31 
MOVB 
| 
R 
ts 


cr 
> 


RO,@WRK_L_EXPANDPTR(R10) 


U 

I 

F 

0 :§ 
INCL WRK w" RERPRNDPTR(RIO) N 
RO ~ E 

E 


0 S 
#uRK V SIF SET THEN USER MODE PARSE 
WRK Q FLAGSCR °6), 
BICW #PRC_A_IND,PRC_W. “Fiasinit) ; ZCLEAR INDIRECT IN PROGRESS 
662 20$: BRW ERROR ~ ; 
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CHARMANIP = CHARACTER MANIPULATION ROUTINES 15-SEP-1984 23:37:55 VAX/VMS Macro V04-00 Page 24 
v04-000 GET CHARACTER FROM INPUT BUFFER 77866-1383 $3:35:72 LOCL SRCICHARMANIP OMAR: 1 . (33 
18 664 .SBTTL GET CHARACTER FROM INPUT BUFFER 
18 bee : DCLSGETCHAR = GET CHARACTER FROM INPUT BUFFER 
18 668 : THIS ROUTINE IS CALLED TO GET THE NEXT CHARACTER FROM THE INPUT BUFFER. 
18 669 ; IT HANDLES INDIRECT FILES, QUOTES, CONTINUATION, AND BLANK SUPPRESSION. 
18 ert t INPUTS: 
1B tg i 
18 «4673: NONE. 
1B 674: 
18 679 : OUTPUTS: 
1B ers : THE NEXT CHARACTER IS READ FROM THE INPUT BUFFER AND RETURNED TO THE 
18 678 ; CALLER. 
1B «679: 
18 680 ; RO = CHARACTER READ. 
1B 68¢ HCLSGETCHAR:: :GET NEXT CHARACTER FROM INPUT BUFFER 
51 oD 0218 68 PUS R1 [SAVE REGISTER 
1D 684 NEXTCHAR: 'GET NEXT CHARACTER 
F48E CA D6 021D 685 NCL  WRK_L_CHARPTR(R10) [UPDATE INPUT BUFFER POINTER 
1 686 CURRCHAR: ?GET CURRENT CHARACTER 
51 F48E CA 00 1 68 MOVL WRK_L_CHARPTR(R10),R1 GET CHARACTER POINTER 
50 81 9A 3 ons MOVZBL (R1T+>RO :GET NEXT CHARACTER FROM INPUT BUFFER 
63 13 689 BEQL SIF EQL END OF LINE 
50 22 91 B 690 CMPBOsé#*A/"*/,RO S QUOTE? 
4A 13 : 691 BEQL  QuoT SIF EQL YES 
3F FO AA 04 «£0 69 BBS #WRK_V_QUOTE ,WRK_W_FLAGS(R10) EXIT CHAR “EXIT IF IN QUOTED STRING 
1A FO AA OA £0 5 69 BBS #WRK-V~INPSUBST,QRR_W_FLAGS(R10),20$ ;1F SUBSTITUTITION PASS 
50 40 8F 1 A 694 CMPB 0 sso#'*A/5/7RO SAT SIGN? 
40 13 695 BEQL INDIRECT 
50 21 Ht 40 69 CMPB ss #*A/'/, RO ZEXCLAMATION? 
- 4 43 69 BEQL TRUNCATE 
0 FMS BSR S88 co fo — 
ce ee BLANC 
50 2D 91 O24F 10 CMPB Oe #*A/=/,R yHYPHEN? 
2 13 0252 7 BEQL § CONTINUATION 
18 FO AA 08 £0 54 704 208: BBS #WRK_V_NOUPCASE ,WRK_W_FLAGS(R10) .EXITCHAR ;SKIP IF NO UPCASING 
61 8F 1 0259 705 CMPB ss RO, #™A7a/ :CHECK LOW LIMIT OF LOW RANGE 
15 F 0250 7 : BLSSU EXITCHAR :BR IF FAILED 
7A 8F 6550 ss«91s«O2SF 7 CMPB OS s« RO, #*A/2/ [CHECK HIGH LIMIT OF LOW RANGE 
oc 18 os 7 : BLEQu 25$ :BR IF VALID CHARACTER 
EO 8F 9 : 7 CHPB ss RO, #*XEO SCHECK LOW LIMIT OF HIGH RANGE 
09 1F 9 210 BLSSU  - EX{TCHA [BR IF FAILED 
FE 8F 91 0268 71 CMPB aR, #*KFE SCHECK HIGH LIMIT OF HIGH RANGE 
1A F rig BGTRU EXITCHAR SBR IF FAILED 
50 8A 4] f13 25$: 1CB = #* X20, RO SUPCASE THE CHARACTER 
74 715 EXITCHAR: SEXIT WITH CHARACTER 
00 74 216 POPL RI TRESTORE REGISTER 
93 77 At TSTB = RO SSET CONDITION CODES BASED ON CHARACTER 
719 ; : 
720 : STRING QUOTATION DELIMITER DETECTED. INVERT QUOTE FLAG. 
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4-SEP-1 DCL.SRCJCHARMANIP.MAR; 1 


oe 


FO AA 10 at QUOTE: XORW = #WRK_M_QUOTE,WRK_W_FLAGS(R10) ;INVERT QUOTE FLAG 


RF 
? 1 
1 7 § BRB EXITCHAR : 
5 ; 
g: : INDIRECTION (@) REQUESTED 
f 8 INDIRECT: 
F9B2 CA 05 TSTL  WRK_L_SPECRTN(R10) ANY SPECIAL PROCESSING ROUTINE? 
fe 4 730 BEQL EXITCRAR [IF NOT, RETURN @ CHARACTER 
F9B2 DA 16 6 731 JSB @WRK_L_SPECRTN(R10) 'CALL SPECIAL PROCESSING ROUTINE 
eB 11 A f : BRB EXITCHAR TEXIT WITH NEXT CHARACTER 
C 734; 
: , 5 i COMMENT CHARACTER DETECTED. FAKE AN END OF LINE CONDITION. 
can : TRUNCATE: 
71 (9% € 738 CLRB 2s =(R1) :SET END OF LINE IN BUFFER 
91 «11 Hs £39 BRB CURRCHAR 
30 24 : END OF LINE DETECTED. TERMINATE ANY STRING AND EXIT 
FO AA 10 AA 0290 og EOL:  BICW  #WRK_M_QUOTE,WRK_W_FLAGS(R10) ;CLEAR QUOTE IN PROGRESS 
F48E CA 07 94 744 DECL WRK - CHARPTR( R10)~ :BACK UP INPUT BUFFER POINTER 
DA 11 98 248 BRB EXITCA 
9A 749 : TAB DETECTED. CONVERT TO A SPACE. 
50 20 9A 9A 149 TAB: MOVZBL #*A/ /,RO :SET CHARACTER TO A BLANK 
9 31 i : COMPRESS MULTIPLE SPACES AND TABS INTO A SINGLE SPACE 
F4BE DA 50 90 029D £38 BLANK: MOVB RO -auRK L_CHARPTR(R10) ;STORE BLANK IN INPUT BUFFER 
81 Bg | ng fee cnes 7, TRT)+ SNEXT CHARACTER A BLANK? 
FF AI 09 9 a? 136 CHPE B°A/ 7,1 0R1) NEXT CHARACTER A TAB? 
F48E CA 06 OAD 138 30$: INCL WRK _L_CHARPTR(R10) S INCREMENT CHARACTER POINTER 
EA 11 8 139 BRB BLANK ; 
8 761 : STRIP ANY TRAILING SPACES ON THE END OF THE LINE 
71 %§ B 188 hos: STB -(R1) sNEXT CHARACTER END OF LINE? 
Ds 1 B 164 BEQL § TRUNCATE ; 
61 21. 91 5 CMPB Os #*A/'/,(R1) [NEXT CHARACTER EXCLAMATION? 
BO 13 O2BA 166 BEQL ‘TRUNCATE SIF EQL YES 
81 91 O2BC 7 CMPB 0s #*A/-/,(R1)4 SHYPHEN? 
B3 12 OoBF 7 8 BNEQ XITCHAR “IF NEQ NO 
cl , SETBIT WRK_V_TRAILSPC,WRK_W_FLAGS(R10) ; INDICATE TRAILING SPACES SEEN 
C6 pe : CONTINUATION CHARACTER DETECTED. IF ITS THE LAST CHARACTER ON 
+? ak 3: THE LINE, READ THE NEXT INPUT RECORD AND READ ITS FIRST CHARACTER. 
C6 774 CONTINUATION: 
61 95 C6 775 TSTB. ss (R11) ZNEXT CHARACTER END OF LINE? 
- ¢ ak: BEQL $NEXT_RECORD TIF EQL YES 
61 21 91 O8CA 77 CMPB 4s #*A/T/, (R1) [NEXT CHARACTER EXCLAMATION? 
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GET CHARACTER FROM INPUT BUFFER 4-SEP=1 138 $3 3 33 Yoel SRCJCHARMANIP.MAR; 1 . 3) 
| 
12 13 02¢D BEQL § NEXT_RECORD z1F EQL | 
81 2 4 CF 18 CMPB Oo #*A/"/, (R1)4 iNext ¢ L AARACTER A BLANK? 
F214 be p BEQL CONTINUATION LY 
FF Al 0 94 D CMP #*A/ Ss /, = 1(R1) :NEXT CHARACTER A TAB? 
eC 1 D8 j BEQL CONTINUATION Fa 
DA CLRBIT WRK_V_TRAILSPC,WRK_W_ FLAGS CR 0) TES EAR TRAILING SPACE FLAG | 
93 (11 DF t 4 RB EXITCRAR ; | 
€1 786 ; 
3 f ; : READ THE NEXT RECORD, AND RESTART THE GETCHAR SCAN. 
E1 789 NEXT_RECORD: 
FOAA CA 0 E1 790 TSTL § WRK_L_READRTN(R10) sANY INPUT ROUTINE? 
> 1 ES 791 BEQL EXITCRAR tI1F NOT, RETURN EOL CHARACTER 
D €1 O27 79 BBC #WRK_V [BRANCH IF DCL INPUT ROUTINE 
10 FO AA —E9 79 WRK_@ VevaescRi6) 10$ 
50 F9AA cA DO O2EC 79% MOVL  WRKIL“READRTN(R10),RO GET ADDRESS F USER CONTIN ROUTINE 
a A é FY 5 CLRL =oR1 :D0 NOT SUPPLY A P 
tree 0 02F6 BSBW DCLSGETCAAR [GET FIRST CHARACTER iN INPUT LINE 
FF78 31 O2F9 798 BRW EXITCHAR SEXIT WITH FIRST CHARACTER 
50 FDO! cr E O2FC 799 10$:  MOVAB DCLSHYPHEN+1,RO 3GET ADDRESS OF FORCED INPUT CHARACTER 
51 50 D1 0301 800 CMPL = RO, R1 SARE We I AKING A CONT INUAT 10N? 
04 13 6 04 801 BEQL Ss g* YES, THEN DON'T SET THE FLAG 
FO AA 08 AB 0306 08 BISW  #WRK_M_CONTIN, WRK W_ race yet6) sSET CONTINUATION IN PROGRESS 
FOAA 16 030A 803 15$: JSB awRk~ 4 “READRTN(R10)~ Cath INPUT ROUTIN 
FO AA OB AA 030 04 BICW  #BRK-M-CONTIN,WRK_W_ FLAGS(RI ) :SET CONTINUATION IN PROGRESS 
FFSF 31 08 BRW EXITCHAR EXIT WITH FIRST CHARACTER 
1 07 ; 
13 B08 : ERROR EXIT FROM CHARACTER INPUT ROUTINES 
15 +810 ° 
FOAE CA 05 15 eit ERROR: TSTL  WRK_L_ERRORRTN(R10) ZANY ERROR HANDLER ROUTINE? 
1 19 1 BEQL 908 :1F NOT, IGNOR 
FOAE DA 16 «(0318 Bi JSB @WRK_L_ERRORRTN(R10) CALL ERROR WANDERS 
05 Osi 14 90$:  RSB 
aE 
320 816 END 


4 
£96 BSBW DCLSUSER_ INPUT CALL USER Ss" ROUTI NEF R_ INPUT 
| 

| 

| 

| 

| 
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DCL.SRCJCHARMANIP.MAR; 1 (33) 


! Psect synopsis ! 


Pesos moe anmewumanre + 


PSECT name Allocation PSECT No. Attributes 
- ABS . 00000000 “¢ e-} 0 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS DOD seo ( ot 1¢ 1.) NOPIC  USR CON ABS LCL NOSHR’- EXE RD WRT NOVEC BYTE 
DCLSZCODE 0000032 800.) 2¢ 2.) NOPIC USR CON REL LCL NOSHR' EXE RD NOWRT NOVEC BYTE 
ton moe scee reco er cee seem emma} 
; Per formance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 9 0:00:00.09 68: 0:01.47 
gounene processing % See Q- 5 0:00: ¢- 4 
235 :00:07. § 00:00:21. 
Synbol table sort ; :00: 9-8 6: 0:03. 
14 :00:01. 8 :00:04.2 
sm table output 2 :00: 0.6 0:00:00.64 
Psect synopsis output 0:00:00. 00:00:00.0 
Cross-reference output 0:00:00.0 Bb: bo 8979 
Assembler run totals 516 0:00:11.0 0:00:37. 


ihe a yertios set limit was 1900 pages. 
bytes_(68 pages) of virtual memory were used to buffer the intermediate Sade. 
seed were 30 pages of symbol table space allocated to hold 464 non-local and local symbols. 
16 source Lines were read in Pass 1, producing 15 object records in Pass 2. 
pages of virtual memory were used to define 18 macros. 


we we ee meme meen ee meee ww ee + 
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Macro Library name Macros defined 
5SSDUA B: SYSLIBJSYSBLDMLB.MLB; 1 0 
$255$DUA L.OBJ ‘ if 8 

“ESSSs0uAz8: $.O0BJJLIB.MLB;1 0 
55SDUA28 ESYSLIBISTARLET- ALB;2 4 
TOTALS (all libraries) 12 


581 GETS were required to define 12 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$: CHARMANIP/OBJ=0BJ$:CHARMANIP MSRC$:CHARMANIP/UPDATE=(ENHS: CHARMANIP) +EXECMLS$/LIB+LIB$:DCL/LIB+SYS$LIBRARY : SYSBLDMLB/L 
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